EnigmA Amiga Run 1995 November/EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso/earcd/dbase/aa_21.lha/AddressAssist_Install/Install

Text File | 1995-09-13 | 7KB | 330 lines

; **************************************************************************
; *****                                                                *****
; *****                   I N S T A L L - S C R I P T                  *****
; *****                                                                *****
; **************************************************************************
; $Id: Install,v 40.17 1995/09/13 21:19:40 schneida Exp schneida $
; **************************************************************************

(transcript "Installing AddressAssist release 2...")

; **************************************************************************
; **************************************************************************
; **************************************************************************

(set @default-dest "ram:")

(complete 10)

(set @default-dest
    (askdir (prompt "Select destination path for 'AddressAssist' drawer:" )
    (help "The Install-Program will create a directory called 'AddressAssist' into this destination directory and copy all necessary file to there.")
    (default @default-dest)
    )
)

(set @default-dest
    ( tackon @default-dest "AddressAssist" )
)

(message "Installing '" @app-name "' to\n\n'"@default-dest "'" )

(makedir @default-dest
    (infos)
    (safe)
)

(set progversion
    (askchoice
    (prompt "Your system is running a " (database "cpu") " CPU.\n\n Which version of the program would you like to install ???" )
    (choices "Standard (running all CPU's)" "Turbo (optimized for 68020/030, no FPU req.)" )
    (help "Select the correct program version, depending on your installed CPU. If you dont't know what type of CPU your machine has, install the standard version of the program,")
    (default 0)
    )
)

(if ( = 0 progversion )
    (
        (set progname "AddressAssist")
        (message "Installing 'Standard' version of '" @app-name "'" )
    )
    (
        (set progname "AddressAssist_030")
        (message "Installing 'Turbo' version of '" @app-name "'" )
    )
)

; **************************************************************************
; **************************************************************************
; **************************************************************************

(complete 20)

(copyfiles
    (source progname )
    (dest @default-dest)
    (newname "AddressAssist")
)

(copyfiles
    (source "AddressAssist.info" )
    (dest @default-dest)
    (newname "AddressAssist.info")
)

(copyfiles
    (source "MUI" )
    (dest "env:mui" )
    (pattern "#?" )
    (nogauge)
)

(copyfiles
    (source "MUI" )
    (dest "envarc:mui" )
    (pattern "#?" )
    (nogauge)
)

(complete 50)


(set document
    (askoptions
        (prompt "Which language do you want to install?" )
        (help    "Select the switches you want" )
        (choices    "English"
                "Deutsch"
                "Français"
        )
        (default 1)
    )
)

(if (IN document 0)
    (
    (working "Installing english documentation..." )

    (copyfiles
    (source "Manual/English" )
        (dest (tackon @default-dest "Doc_English" ))
        (pattern "#?")
        (infos)
    )
    (copyfiles
        (source "ReadMe.txt" )
        (dest @default-dest )
        (newname "ReadMe.txt")
        (infos)
    )
    )
)

(if (IN document 1)
    (
    (working "Installing german documentation..." )

    (copyfiles
        (source "Manual/Deutsch" )
        (dest (tackon @default-dest "Doc_Deutsch" ))
        (pattern "#?")
        (infos)
    )
    (copyfiles
        (source "LiesMich.txt" )
        (dest @default-dest )
        (newname "LiesMich.txt")
        (infos)
    )
    )
)


(if (IN document 2)
    (
    (working "Installing french documentation..." )

    (copyfiles
        (source "Manual/Français" )
        (dest (tackon @default-dest "Doc_Français" ))
        (pattern "#?")
        (infos)
    )
    (copyfiles
        (source "Lisez-Moi.txt" )
        (dest @default-dest )
        (newname "Lisez-Moi.txt")
        (infos)
    )
    )
)



(complete 70)

(set catalogs
    (askoptions
        (prompt "Select the catalog file(s) whould you like to install??? Following languages are avaiable:" )
        (help    "Select the desired for translation files for AddressAssist.\nAttention: You need locale.library V38 (WB2.1+) for localisation to work." )
        (choices    "Deutsch"
                "Français"
                "Italiano"
                "Norsk"
        )
        (default 0)
    )
)

(set catalogpath (tackon @default-dest "Catalogs"))

(if (IN catalogs 0)
    (
    (working "Installing german catalog" )

    (if (NOT (exists (catalogpath)))
        (
        (makedir catalogpath)
        )
    )

    (copyfiles
        (source "catalogs/deutsch" )
        (dest (tackon @default-dest "catalogs/deutsch" ))
        (pattern "#?")
        (nogauge)
    )
    )
)

(if (IN catalogs 1)
    (
    (working "Installing french catalog" )

    (if (NOT (exists (catalogpath)))
        (
        (makedir catalogpath)
        )
    )
    (copyfiles
        (source "catalogs/français" )
        (dest (tackon @default-dest "catalogs/français" ))
        (pattern "#?")
        (nogauge)
    )
    )
)


(if (IN catalogs 2)
    (
    (working "Installing italian catalog" )

    (if (NOT (exists (catalogpath)))
        (
        (makedir catalogpath)
        )
    )
    (copyfiles
        (source "catalogs/italiano" )
        (dest (tackon @default-dest "catalogs/italiano" ))
        (pattern "#?")
        (nogauge)
    )
    )
)

(if (IN catalogs 3)
    (
    (working "Installing norsk catalog" )

    (if (NOT (exists (catalogpath)))
        (
        (makedir catalogpath)
        )
    )
    (copyfiles
        (source "catalogs/norsk" )
        (dest (tackon @default-dest "catalogs/norsk" ))
        (pattern "#?")
        (nogauge)
    )
    )
)

(complete 70)

(if (NOT (exists "sys:classes/gadgets/textfield.gadget" ) )
(
    (if    (askbool
        (prompt "\nSince v2.1 AddressAssist (AA) sports multi-line text fields for remarks. To use these fields, AA needs the \n\n'textfield.gadget'\n© 1995 Mark Thomas.\n\n Would you like to install the 'textfield.gadget' for use with AA ??? (If you skip this part, AA will work perfectly but will not support multi-line text fields!)" )
        (help @askbool-help)
        )
        (
        (copyfiles
            (source "gadgets" )
            (dest (tackon @default-dest "gadgets" ))
            (pattern "#?" )
            )
        )
    )
)
(copylib
    (prompt "Since v2.1 AddressAssist (AA) sports multi-line text fields for remarks. To use these fields, AA needs the already installed \n\n*** 'textfield.gadget' (© 1995 Mark Thomas) ***\n\nWould you like to update ???" )
    (help @askbool-help)
    (source "gadgets/textfield.gadget" )
    (dest "sys:classes/gadgets" )
        (optional "oknodelete")
        (optional "askuser")
    (confirm)
)
)

(complete 80)

(if     (askbool
        (prompt "Would you like copy an example database file ???" )
        (help @askbool-help)
    )
    (
    (copyfiles (
            (source "AddressData" )
            (dest @default-dest )
            (newname "AddressData" )
            (infos)
        )
    )
    )
)

(complete 85)

(if     (askbool
        (prompt "Would you like copy the preferences files to the envarc: assignment???\n\nAttention: from 1.0 to 2.x, preferences file format have changed. Install NEW default preferences files or set all the preferences, including 'Print' preferences, to 'Default'. \n\nSorry for this inconvenience!\n" )
        (help @askbool-help)
    )
    (
    (copyfiles
        (source "envarc" )
        (dest "envarc:AddressAssist" )
        (pattern "#?" )
        (nogauge)
    )
    )
)

(complete 90)

(
    copyfiles (
        (source "ReadMe.MUI" )
        (dest @default-dest )
        (newname "ReadMe.MUI")
        (infos)
        (nogauge)
        )
)


(complete 100)